home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / comms / other / slrn / slrn_src / macros / util.sl < prev    next >
Text File  |  1999-05-14  |  940b  |  71 lines
  1.  
  2. define group_bob ()
  3. {
  4.    call ("group_bob");
  5. }
  6.  
  7. define group_eob ()
  8. {
  9.    call ("group_eob");
  10. }
  11.  
  12. define header_bob ()
  13. {
  14.    call ("header_bob");
  15. }
  16.  
  17. define header_eob ()
  18. {
  19.    call ("header_eob");
  20. }
  21.  
  22. define art_quit ()
  23. {
  24.    call ("quit");
  25. }
  26.  
  27. define art_select_article ()
  28. {
  29.    !if (3 == is_article_visible ())
  30.      call ("scroll_dn");
  31. }
  32.  
  33. define art_hide_article_window ()
  34. {
  35.    if (is_article_visible ())
  36.      call ("hide_article");
  37. }
  38.  
  39. define mark_spot ()
  40. {
  41.    call ("mark_spot");
  42. }
  43.  
  44. define goto_spot ()
  45. {
  46.    call ("exchange_mark");   
  47. }
  48.  
  49. define star_tag_header () 
  50. {
  51.    if (is_thread_collapsed ())
  52.      {
  53.     uncollapse_thread ();
  54.     loop (thread_size () - 1)
  55.       {
  56.          () = header_down (1);
  57.          set_header_flags (get_header_flags () | HEADER_TAGGED);
  58.       }
  59.     collapse_thread ();
  60.      }
  61.     
  62.    set_header_flags (get_header_flags () | HEADER_TAGGED);
  63. }
  64.  
  65. define star_untag_header () 
  66. {
  67.    set_header_flags (get_header_flags () & ~(HEADER_TAGGED));
  68. }
  69.  
  70.  
  71.